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DOCUMENT 

♦ REM. 



IDENTIFICATION 

PRODUCT COOE: AC-T885A-MC 

PRODUCT TITLE: CXtEBAO IEC11-A DEC/Xll MODULE 

PRODUCT DATE: JANUARY 1984 

DEPARTMENT: CSS, NASHUA 

AUTHOR: DON MACOMBER 



COPYRIGHT (C) FIRST. 1980, 1984 
DIGITAL EQUIPMENT CORPORATION. MAYNARD, MASSACHUSETTS 01754 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE ANO MAY BE USED 
ANO COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
ANO UITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS 
SOFTWARE . OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TkANSFERED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NG RESPONSIBILITY FOR THE USE OR RELIABILITY 
OF ITS SOFTWARE ON tQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL* 



CI 
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ABSTRACT 

IEB IS AN IOMOO WHICH EXERCISES THE IECll-A IEC BUS CONTROLLER. 
IT EXERCISES THE IECll-A BY DOING OATA TRANSFERS WITH INTERUPT, 
Ar« BY DOING A RANDOM TALKER AND LISTENER DATA TEST, ALL ERRORS 
DETECTED ARE REPORTED ON THE CONSOLE TTY , 



REQUIREMENTS 

»»HHMM»tfHf f Mt»t» 

HARDWARE ; 

A. POPU CAPABLE Of SUPPORTING DtC/Xll. 

B. ItCli-A IEC BUS CONTROLLER (M7985). 

C. ANY USER IEC BUS DEVICES MUST BE DISCONNECTED. 

0. THE IEC BUS DEVICE ADDRESS MUST BE SET TO 35(8) 

SOFTWARE: 

DEC/X11 MONITOR, VERSION 6. 

STORAGE: 

1. DECIMAL WORDS: 1016 

2. OCTAL WORDS: 17 70 

3. OCTAL BYTES: 3760 



PASS DEFINITION 
♦»»»♦♦♦♦♦»♦»♦♦♦»»♦♦»♦♦♦♦♦»»♦♦ 

TEN PASS OF THE IEB MODULE CONSISTS OF TEN CYCLES OF THE TEST, 

EXECUTION TIME 
♦»♦♦♦♦♦»»♦♦♦♦♦♦♦♦♦#♦♦♦♦♦»»♦ 

ONE PASS OF IEB RUNNING ALONE ON A PDP-11/34 TAKES APPROXIMATELY 
40 SECONDS, 

CONFIGURATION REQUIREMENTS 

• MMHMMHtMMMMMMHtMMtMUMMHMMH 

DEFAULT PARAMETERS: 

DEVADR: 160010, VECTQRi 270, BRlt b, DEVCNT j 1 

REQUIRED PARAMETERS! 

NUNE 



m&v 
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6 OtVICE/OPTION SETUP 

♦♦♦♦♦♦»»♦♦*»♦»♦♦»♦♦♦♦♦♦♦♦»♦♦♦*»»»»♦♦♦ 

MAKE CERTAIN THAT THE IEC11-A IS CONNECTED AND READY. 



MODULE OPERATION 

TEST SEQUENCE? 

A. TEST DATA TRANSFER WITH INTERUPT, CHECKING THATi 



1. 

2. 

3. 
4, 
5. 

6. 
7. 

8. 



•TCS' PRODUCES 'ILLMSGE' 

INTERUPT OCCURS WHEN SENOING LISTENER ADDRESS 

'LACS' IS SET AFTER LISTENER ADDRESSING AND 'GTS 

INTERUPT OCCURS WHEN SENOING TALKER ADDRESS 

•DATAACC* DOES NOT COME UP ON 2ND DATA BYTE 

BEFORE 1ST DATA BYTE IS READ 

1ST DATA BYTt SENT - 1ST DATA BYTE RECEIVED 

•DATAACC COMES UP ON 2ND DATA BYTE AFTER 

READING 1ST DATA BYTE 

2ND DATA PYTE SENT - 2N0 DATA BYTE RECEIVED 



B. TEST RANDOH TALKER ANO LISTENER DATA, CHECKING THAT: 



1. 
?. 
3. 

4. 

5. 



INTERUPT OCCURS WHEN SENOING A DATA BYTE 

DATA BYTES SENT - DATA BYTES RECEIVED 

•DATAACC COMES UP WHEN SENDING A DATA BYTE 

WITH 'LASTBYTE' 

•END 1 COMES UP WHEN LAST BYTE SENT 

LAST BYTE SENT - LAST BYTE RECEIVED 



SEQ 3 



8 



OPERATION OPTIONS 



NCNt 



NO M- STANDARD PRINTOUTS 



ALL ER»;OR PRINTOUTS CONSIST OF TWO SECTIONS. THE FIRST SECTION 

IS NON JANOARD, AND CONSISTS OF AN ERROR CODE (IE. ERROR NN) 

THAT IS A NUMERICAL CROSS REFERENCE TO THE SAME ERROR CONDITION AND 

ERROR NUMBER IN THE POPU DIAGNOSTIC (CZIEBAO). 

THE SECOND SECTION CCNSI:.'. OF A STANDARD DEC /Xll 

HARD ERROR (HRDFPs CALL, WIT.-i A DUMP OF THE CONTENTS OF THE 

DEVICE REGISTr^J A* ■ THE CCNT6NTS QF THE. DATA BUFFER (DATBUO 

IN THE FOLLOWING PlwtR: 



CXR* SMR f XOR, VSR,. UAIBUF 



6&cum£nt 
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SEQ 4 



10 STARTING PROCEDURE 

A, LOAD AND START THE DEC/XU PROGRAM ACCORDING TO 
THE DEC/X11 USER'S MANUAL ( AC -8,?34r-MC) . 

B, ENSURE THAT THE DEVICE ADDRESS AND VECTOR ADDRESS 
APE CORRECT FOR THE IEC11-A BUS CONTROLLER, 



11 LISTING 



Fl 
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SEQ 5 



179 

180 

181 000000 
000000 



000000 






000000 


111 


105 


000003 


101 


040 


000005 


000 




000006 


160010 




000010 


000270 




000012 


300 




000013 


000 




000014 


0COOO1 




000016 


OOOOOO 




000020 


000000 




000022 


OOOOOO 




000024 


OOOOOO 




00O026 


140000 




000030 


000224' 




000032 


000224 ' 




000034 


OOOOOO 




000036 


000012 




000040 


OOOOOO 




00004? 


OOOOOO 




00OO44 


OOOOOO 




000046 


OOOOOO 




000050 


OOOOOO 




000052 


OOOOOO 




000054 


OOOOOO 




000056 






000056 


OOOOOO 




000060 


OOOOOO 




000062 


OOOOOO 




000064 


OOOOOO 




C\)06b 


OOOOOO 




000070 


OOOOOO 




00OO72 


OOOOOO 




0000/4 


OOOOOO 




0000 /6 


OOOOOO 




000100 


OOOOOO 




000102 






0OO102 


OOOOOO 




000104 






000104 


OOOOOO 




000106 






000106 


OOOOOO 




000110 


OOOOOC 




000112 


000224' 




000114 


OOOOOO 




000116 


OOOOOO 




000120 


OOOOOO 




000122 


OOOOOO 





.SElTTL DDXCOM HEADER 

IOM0D <IEBA >, 160010,270,6.0,0, 10. ,0 

MODULE 140000. IEBA , 160010,270,6,0,0, 10 . ,0 

.TITLE IEBA DEC/X11 SYSTEM EXERCISER MODULE 

j DDXCOM VERSION 6.4 28-JAN-82 

.LIST BIN 

BEGIN: 

102 MODNAMj , ASCII /IEBA / iMODULE NAME. 

USED TO KEEP TRACK OF WBUFF USAGE 

1ST DEVICE ADOR. 

1ST DEVICE VECTOR. 

1ST BR LEVEL. 

2ND BR LEVEL. 

DEVICE INDICATOR K 

SWITCH REGISTER 1 

SWITCH REGISTER 2 

SWITCH REGISTER 3 

SWITCH REGISTER 4 

STATUS WORD. 

MOOULE START ADDR. 

MOOULE STACK POINTER, 

PASS COUNTER. 

OF ITERATIONS PER PASS-10, 

LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOfT ERRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOfT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM * WHEN RAND MACRO IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

LOC TO SAVE Rt. 

TO SAVE R2. 

TO SAVE R3. 
LOC TO SAVE R4. 
LOC TO SAVE R5. 
LOC TO SAVE R6. 
ADDR Of CURRENT CSR. 
ADOR OF GOOO DATA, OR 
CON.ENTS OF CSR. 
ADOR OF BAD DATA, OR 
STATUS REG CONTENTS. 
TYPE OF ERROR 
EXPECTED DATA. 
ACTUAL DATA. 

RESTART ADDRESS AFTER END OE PASS 
WORDS TO MEMORt PER ITERATION 
WORDS FROM MEMORt PER ITERATION 
OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBER-0 



XFLAG 


! 


.BYTE OPEN 


ADDR: 


160010*0 


VECTOR; 


270*0 


BR1: 


.BYTE PRTY6*0 


BR2: 


.BYTE PRTYO*0 


DVID1: 


0*1 


SRI: 


OPEN 


SR<:: 


OPEN 


SR3: 


OPEN 


SR4: 


OPEN 


J************************ 


STAT: 


140000 


INIT: 


START 


SPOINTj 


MODSP 


PASCNT; 





ICONT: 


10, 


ICOLWT: 





SOFCNT: 





HRDCNT : 





SOFPAS: 





HRDPAS: 





SYSCNT: 





RANNUM; 





CONf IG: 




RES! 







RES2. 







SVRO 




OPEN 


SVR1 




OPEN 


SVR2 




OPEN 


SVR3 




OPEN 


SVR4 




OPEN 


SVR5 




OPEN 


SVR6 




OPEN 


CSRA 




OPEN 


SBADR: 




ACSR: 


OPEN 


WASADR: 




ASTAT i 


OPEN 


ERRTVPj 




ASB: 


OPEN 


A WAS: 


OPEN 


RSTRT : 


RESTRT 


WDTO 




OPEN 


WDf R 




OPEN 


INtR 




OPEN 


IDNU» 


ij 






LOC 

LOC 



Gl 
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SEQ 6 



C 00040 



000224 



{MODULE STACK STARTS HERE. 



.REPT SPSIZ 
.NI.IST 
. WORD 
.LIST 
.ENDR 
MODSPt 

j *** 4 + + * + + + *** + + + + * + + ***** + + **+ + + ****** + *** + + + ***.* + *****•** + *** + ******** 
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SEQ 7 



184 

ies 

136 

187 
188 
189 
190 
191 
192 
19? 
194 
19S 
196 
19/ 
198 

200 

201 

202 

205 
204 

20 r > 

206 
20? 
208 
20^ 
210 

211 

212 
215 
214 
2 IS 
216 
2W 
218 
219 
220 
221 
222 
225 
224 

22r> 

226 
22 ; 

22<i 
229 

250 

;>*>? 

255 
254 
25S 
2 M> 

25/ 
25M 
2 59 
2AQ 



.SBTTL MACRO DEFINITIONS. 



.MACRO 

BIS 

.ENOM 


SET. SACS 
0SACS,CIR(R5) 
SET. SACS 




.MACRO 
BIS 

.ENOM 


SET.LASTBYTE 

0LASTBYTE.CIRCR5) 

SET.LASTBYTE 




.MACRO 

BIS 

.ENOM 


SET.MC 

*MC,CIR(R5) 
SET.MC 




. MACRO 

BIS 

.ENOM 


SET.INTEN8 

0INTEN6,CIR(R5) 

SET.INTENB 




.MACRO 

BIS 

.ENOM 


SET.CA 

«TCA,SMR(R5) 

SET.CA 




.MACRO 

BIS 

.ENOM 


SET.CS 

CTCS.SMRCR5) 

SET.CS 




.MACRO 

BIS 

.ENOM 


SET. UTS 
♦GTb.SMRCRS) 
SET. GTS 




.MACRO 

BIS 

.ENOM 


SET, SIC 
♦SIC.SMRCR5) 
SET. SIC 




.MACRO 

BIC 

.ENOM 


CLR.STATECHGt 

*STATECHGE,CIR(R5) 

CLR.STATECHGE 




.MACRO 

BIC 

.ENOM 


CI R.DATAACC 

ODATAACC.CIRtR^) 
CLR.DATAACC 




.MACRO 
BIT 

BFQ 
.ENOM 


1ST .0 ABIT ( REG,GOIEO 
0ABIT.RF.IUR5) 

fiOIf 

TST.O 


i ABIT CLEAR IN REG 
* tES. 
{ NO. 


.MACRO 
BIT 

BNE 

JNOM 


TST.l ABIT.RfcG.UOIF'l 
0ABIT.RF.GCR5> 

GOT* I 

TST.l 


i ABU SET IN REG ? 
i its, 

I NU. 


.MACRO 


DELAY TIME, ,'L % 





ftfiJo"&fttol T fo& 
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241 

242 
243 
244 
245 

24; 

24*-) 

250 

251 

252 

253 

254 

255 

256 

257 

258 

25S 

260 

261 

262 

265 

264 

265 

266 

267 

268 

2t>S 

2/0 

2/1 

272 

2/3 

2/4 

2/5 

276 

27/ 

2/8 

27** 

280 

261 

282 

283 

284 

285 

28*. 

28/ 

t8G 



L$ 



L $ 



L*; 



MOV 
BREAK 
DEC 
BNE 
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MIME, DELCNT 

DELCNT 

L* 



SEQ 8 



.ENDM DELAY 



j DELAY ( TIME. US ). 
t BREAK TO MONITOR. 
l TIMEOUT? 
I NO. 
I YES. 



.MACRO 

MOV 

BIT 

BEQ 
BREAK 
DEC 
ONE 

.ENOM 

. MACRO 

MOV 

BIT 

BNE 

BREAK 

DEC 

BNE 



WAIT.O T IME, ABIT, REG ,GOIFO,?L* 

OTIME .DELCNT j WAIT ( TIME US ) FOR ABIT 

OABIT.REGCRS^ 

j BIT ABIT • 0? 

GOIFO j YES. 

j NO, BREAK TO MONITOR. 

DELCNT i TIMEOUT? 

L$ i KD. 

} YES. 
WAIY.O 

WAIT.l 



0. 



PTIME.DELCNT 
*ABIT,REG(R5) 

G0IF1 

DELCNT 
I* 



T IME, MBIT, REG, G0IF1,?L$ 

: WAIT C TIME US ) FOR ABIT 



1. 



.ENDM WAIT.l 



.MACRO 

MOV 

EXIT 



.MACRO 
JSR 
MOV 
MSGN 
HRDER 
NOP 
NOP 
.ENDM 

.MACRO 
NOP 
N0° 
♦ ENOM 



WAIT. INT 
R5.SVR5 



.ENOM WAIT. INT 



ERROR XREF.ECQDE 

PC.ESETUP 

OECOOE.ERRTYP 

MSG* XREF' 

REGTAB 



ERROR 
SCOPE 



; BIT ABIT - 1? 

j Y£S. 

I NO. BREAK TO MONITOR. 

: TIMEOUT? 

j NO, 

I YES. 



; SAVE CONTENTS OF R5, 

j WAIT FOR INTERUPT - EXIT TO MONITOR. 



j SET UP FOR ERROR CALL. 
} SET ERROR CODE TYPE. 

; X REF ERR CODE C DFSCRIPTIVE MSG, 
l CALL ERriQR, PRINT ALL REGS, 



SCOPE 



Jl 



IEB'\ 0EC/X11 


SYSTEM EXERCISER 


EQUATES 




291 




292 




293 




294 




29^ 




296 




297 


0000 )0 


298 


000001 


299 


000004 


300 


000040 


301 


000100 


302 


000400 


303 


010000 


304 


020000 


305 


100000 


306 




307 


000002 


308 


000002 


309 


000001 


310 


000004 


311 


000100 


312 


000400 


313 


001000 


314 


otoooo 


31S 


020000 


316 




317 


000004 


318 




319 


000006 


320 




321 




322 




323 




324 




32S 


W7//7 


326 


0003^7 


327 


1774.0 
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. SBTTL EQUATES 



SEQ 9 



DEVICE REGISTERS AND BIT DEFINITIONS, 



CIR- 

SACS- 

LASTbYTE- 

MC- 

INTEN6- 

STATECHGE* 

ILLMSGE- 

E V 4D» 

DATAACC- 

SMR- 2 

TCA- 

TCS* 

GTS- 

SIC- 

CACS- 

CSBS- 

LACS- 

SIAS- 



j CONTROL 6 INTERUPT REGISTER. 



BITO 

BIT2 

BIT5 

BIT6 

9IT8 

BIT12 

BIT13 

BIT15 



i SYSTEM CONTROL ACTIVE STATE. 

; LAST BYTE. 

} MASTER CLEAR. 

i INTERUP't ENABLE. 

I STATE CHANGE. 

I ILLEGAL MESSAGE. 

I END OF BLOCK. 

i DATA ACCEPTED. 



; STATE 6 MESSAGE REGISTER. 



BIT1 

BITO 

BIT2 

BIT6 

BITS 

BIT9 

BIT12 

BIT13 



TAKE CONTROL ASYNCHRONOUSLY, 
l TAKE CONTROL SYNCHRONOUSLY. 
f GO TO STANDBY. 
; SENO INTERFACE CLEAR, 
j CONTROLLER ACTIVE STATE. 
j CONTROLLER STANDBY STATE, 
j LISTENER ACTIVE STATE, 
j INTERFACE CLEAR ACTIVE STATE. 



IOR< 

VSR 



C 

6 



I INPUT 6 OUTPUT REGISTER, 
j VECTOR SWITCH REGISTER. 



; GENERAL EQUATES 



ALL- 

LOBtTE 

MIBYTE 



177777 

3// 

177400 



ALL BITS (BITS 15-0). 

LO ORDER BITS (BITS 7 -0). 

HI ORIX-R BITS (BITS 15-8), 



Kl 
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.SBTTL START - RESTART - TEST 

START: 
RESTRT: 



SEQ 10 



330 










Ml 










335 










336 


000224 








337 


000224 








338 










339 










340 










341 










342 










34 3 


000224 


016705 


177560 




344 


000230 


012725 


002136' 




345 


00023 *\ 


116715 


177552 




346 


000240 


016705 


1/7542 




34 7 


000244 


005067 


001776 




348 










349 










350 










351 










552 










353 


000250 








354 


000250 








355 


000250 










000250 


052765 


000040 


000000 


356 


000256 










000256 


052765 


000001 


000000 


357 


000264 










000264 


052765 


000100 


000002 


358 


000272 










000272 


0KV67 


000100 


001732 




000300 










000300 


104407 


000000* 






000304 


104407 


000000' 






000310 


C05367 


001716 






000314 


001371 






359 


000316 










000316 


042765 


000400 


000000 


360 


000324 










000324 


012767 


000100 


001700 




000332 










000332 


104407 


000000' 






000336 


104407 


000000' 






000342 


005 3(\/ 


001664 






000346 


001371 






361 


000350 










000350 


042765 


000400 


000000 


362 


O0035i 










000356 


052765 


000004 


000002 


363 


000364 
000364 

000366 


000240 
000240 






364 


0003 70 










000370 


012767 


000100 


00X634 




0005/6 










QQQ57& 


104407 


000000* 





! SET UP VECTOR, BR LEVEL, AND R5 AS DEVICE POINTER 



MOV 


VECTOR. R5 


MOV 


0INTSVC,(R5) 


MOVB 


BR1.CR5) 


MOV 


PDDR.R5 


CLR 


DATBUF 



I GET VECTOR ADDRESS. 

j SET COMPLETION INTERUPT VECTOR 

♦ SET BREAK LEVEL. 

; R5 • DEVICE BASE ADDRESS. 



} CLEAR THE DATA BUFFER. 



TEST DATA TRANSFuR WITH INTERUPT. 



TSTIEB: 




U: 






SET .MC 




BIS 0MC,CIR(R5) 




SET. SACS 




BIS 0SACS.CIRCR5) 




SET. SIC 




BTS 0SIC.SMRCR5) 




DELAY 100 




MOV 0100. L<=' CNT 


64$ j 


BREAK 




BREAK!, BEGIN 




BREAK*, BEGIN 




DEC DELCNT 




BNE 64 ! 




CLR.STATECHGE 




BIC OSTATECHGE.CIRC 




DELAY 100 




MOV 0100. DELCNT 


65$: 


nrxAK 




BREAK!. BEGIN 




BREAK!, BEGIN 




DEC DELCNT 




BNE 65! 




CLR.STATECHGE 




BIC OSTATECHGE.CIRC 




SET. GTS 




BIS 0GTS,SMR(R5) 




SCOPE 




NOP 




NOP 




DELAY 100 




MOV &100, DELCNT 


66* t 


BREAK 




BREAK*, BEGIN 



; SET UP AND TEST THE IEC11-A. 
j MASTER CLEAR. 

, SYSTEM CONTROL ACTIVE STATE. 
» SENO INTERFACE CLEAR. 

j (GIVE STATECHGE TIME TO CLEAR) 

j DELAY ( 100 US ). 

i BREAK TO MONITOR. 

•.TEMPORARY RETURN TO MONITOR 

j THEN CONTINUE AT NEXT INSTRUCTION. 



R5) 



TIMEOUT? 

NO. 

YES. 

CLEAR INTERRUPT CONDITIONS. 



(GIVE 
DELAY 
BREAK 



SIAS TIME TO CLEAR). 



( 100 US ). 

TO MONITOR. 
{TEMPORARY RETURN TO MONITOR. .. . 
I THEN CONTINUE AT NEXT INSTRUCTION. 



R5) 



t TIMEOUT? 

i NO. 

! YES. 

i CLEAK STATE 



CHANGE 



I GO TO STANDBY STATE. 



I (GIVE CSBS 1 IME TO SET). 
i DELAY ( 100 US ). 
j BREAK TO MONITOR. 
{TEMPORARY RETURN TO MONITOR. ,» » 
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SEQ 11 



000402 


104407 


000000' 




000406 


005367 


001620 




000412 


001371 






365 000414 








000414 


05276S 


000001 


000002 


366 000422 








000422 


0127*7 


000100 


001602 


C00430 


0327 5 


010000 


000000 


000436 


001024 






000440 








000440 


104407 


000000' 




00C444 


104407 


000000 ' 




000450 


005367 


001556 




000454 


001365 






367 000456 








000456 


004 7ft" 1 


001500 




000462 


0127^. 


000025 


177416 


0004 70 








0004 70 


1044^3 


000000' 


002266' 


0004 76 








0O0476 


104405 


000000' 


002252' 


000504 


000240 






000506 


000240 






3o8 








369 000510 








370 000510 


042765 


177400 


000000 


371 000516 








000516 


052765 


Ov.0002 


C >.002 


372 000524 








000524 


012767 


000100 


001500 


000532 








0;>532 


104407 


00000' >' 




000536 


104407 


000000' 




000542 


005367 


001464 




000546 


001371 






373 O^UjJO 








000550 


000240 






000552 


000240 






3 74 000554 


042765 


17 7400 


000000 


375 000562 


01^767 


000646' 


001450 


376 000570 








0005 7 C 


Of.;: 765 


000100 


0001 ^0 


377 0005/6 


11670-5 


001440 


000004 


37b 000604 








000604 


010567 


W7264 




0006 iO 








000610 


104400 


000000' 




379 000614 








000614 


004/67 


001542 




QQQ&2G 


012767 


QQQQ23 


177260 



T2: 



64$: 



BREAKS, BEGIN 
P^.C DELCNT 
dNE 66$ 



SET.CS 

BIS 

WAIT.l 

MOV 
BIT 



0TCS.SMRCR5) 
100, ILLMSGE, CIR 
0100, DELCNT 
0ILLMSGE.CIRCR5 

T2 



j THEN CONTINUE AT NEXT INSTRUCTION. 
j TIMEOUT? 
; NO. 
j YES. 
j TAKE CONTROL SYNCR. 



,T2 



BNE 
BRiiAK 

BREAKS, BEGIN 
BREAKS, BEGIN 
DEC DELCNT 
BNE 67$ 

ERROR 46,25 

JSR PC,ESETL*> 

MOV 025.ERRTYP 

MSGN MSG46 

MSGNS, BEGIN, MSG46 

HRDER REGTAB 

j ********************** 

HRDER*. BEGIN, REGTAB 

j ********************** 

NOP 
NOP 



WAIT ( 100 US ) FOR ILLMSGE - 1. 



BIC 


0HIBYTE,CIR(R5) 


SET,CA 




BIS 


0TCA.SMRCR5) 


DELAY 


100 


MOV 


0100, DELCNT 


BREAK 




BREAKS 


,BEGIN jTEMK 


BREAKS 


.BEGIN {THEN 


DEC 


DELCNT 


BNE 


64 S 


SCOPE 




NOP 




NOP 




BIC 


OHIBtU .CIRCR5) 


MOV 


0T3.IRTN 


SET.INTENE 


BIS 


0INTENB,CIR(R5) 


MOVB 


LISTNR.I0RCR5) 


WAIT. INT 


MOV 


R5.SVR5 


EXIT 




EXITS, 


BEGIN 


ERROR 


50.23 


JSR 


PC, P SETUP 


MOV 


^S^RRTYP 



BIT ILLMSGE « 1? 

YES. 

NO. BREAK TO MONITOR. 

j TEMPORARY RETURN TO MONITOR 

;THEN CONTINUE AT NEXT INSTRUCTION. 
} TIMEOUT? 
j NO. 
} YES. 

i NO ILLEGAL MESSAGE, 
1 SET UP FOR ERROR CALL. 
; SET ERROR CODE TYPE. 
5 X-REF ERR CODE 6 DESCRIPTIVE MSG 
j ASCII MESSAGE CALL WITH COMMON HEADER 
} CALL ERROR. PRINT ALL REGS. 
***************************************** 

***************************************** 



j CLEAR INTERUPT CONDITIONS. 
t TAKE CONTROL ASYNCP. 

; (GIVE STATECHGE t CACS TIME TO SET) 
t DELAY ( 100 US ) . 
; BREAK TO MONITOR. 
"Y RETURN TO MONITOR. . . . 
JNTINUC AT NEXT INSTRUCTION, 
; TIMEOUT? 
i NO. 
j YES. 



j CLEAR INTERUPT BITS. 

j SET UP INTERUPT RETURN ADDRESS, 

j ENABLE INTERUPT. 

j SEND LISTENER ADDR!"SS. 

j SAVE CONTENTS OK R5 . 

j WATT FOR INTERUPT - EXIT TO MONITOR. 
jEXIT TO MONITOR, MODULE WAIT FOR INTERRUPT 

; NO INTERRUPT TO LISTFNER ADDRESSING, 

i SET UP FOR ERROR CAlL. 

I SET ERROR CODE TYPE. 



1EBA OtC/Xll StSTEM EXERCISER M MACRO M1200 
START - RESTART - TEST 

000626 
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000634 

000634 104405 000000' 002252' 
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SEQ 12 



000642 
000644 
380 

381 000646 

382 000646 

383 000646 
000646 
000650 

3G4 000652 

385 000660 

386 000666 
000666 

387 000674 

388 000702 
000702 
000706 
000706 

389 000712 
000712 
000716 
000 724 
000 724 
000732 



000240 
000240 



000240 
000240 
042765 
012767 

052765 
116765 

010567 

104400 



004767 
012767 



17"M00 
000744' 

000100 
001344 

177166 

000000 



001244 
000023 



000000 
001352 

000000 
000004 



177162 



104403 000000* 002302' 



000732 104405 000000' 002252* 



390 
391 
392 

393 



394 



395 



000740 
000742 

000744 
00^744 
000744 
000 752 
000752 
000760 
000760 
000764 
0007 70 
000774 

0007 76 
000776 

001004 

001006 

001006 
001012 
001020 
001020 



000240 
000240 



052765 

012767 

104407 
104407 
005367 
001371 

032765 
001015 



004 767 
012767 



OC0004 000002 

000100 001252 

000000' 
000000' 
001236 

010000 000002 



001150 

000025 1 7 7066 



T3 
T4 



T5: 



64$: 



MSGN MSG50 j X-REF ERR CODE £ DESCRIPTIVE MSG. 

MSGN*. BEGIN, MSG50 jASCIT MESSAGE CALL WITH COMMON HEADl.R 
HROER REGTAB ; CALL ERROR, PRINT ALL REGS. 

HRDER*. BEGIN. REGTAB j 

; + + ******************** + + + + + + *+ *&****'!--. + + + + + + + + + + + + + ** + + + + + + + ** + * 
NOP 

NOP 



SCOPE 




NOP 




NOP 




BIC 


^HIBYTE.CIR(R5) 


MOV 


0T5.IRTN 


SET.INTENB 


BIS 


0INTENB.CIRCR5) 


MOVB 


TALKER, I0 l ?(R5) 


WAIT. INT 


MOV 


R5.SVR5 


EXIT 




EXIT*, 


, BEGIN 


ERROR 


53.23 


jsn 


PC.ESETUP 


MOV 


023.ERRTYP 


MSGN 


MSG53 


MSGN* 


.BEGIN, MSG53 


HRDER 


REGTAB 



; CLEAR INTERUPT BITS, 

t SET UP INTERUPT RETURN ADDRLSS. 

j ENABLE INTERUPT. 

j ADDRESS TALKER AGAIN. 

5 SAVE CONTENTS OF R5. 

; UAIT FOR INTERUPT - EXIT TO MONITOR. 
{EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT 

i NO INTERRUPT TO TALKER ADDRESSING, 
j SET UP FOR ERROR CALL. 
j SET ERROR CODE TYPE, 
j X-REF ERR CODE C DESCRIPTIVE MSG, 
{ASCII MESSAGE CALL UITH COMMON HEADER 
j CALL ERROR, PRINT ALL REGS. 

HRDER* , BEGIN, REGTAB 5 

NOP 
NOP 



104403 000000* 002276' 



SET, GTS 

BIS 0GTS.SMRCR5) 

DELAY 100 

MOV J100.DELCNT 

BREAK 

BREAK*, BEGIN 

BREAK*, BEGIN 

DEC DELCNT 

BNE 64* 

TST.l LACS.SMR.T6 
BIT #IA:S,SMR(RS) 

BNE T6 

ERROR 52,25 
JSR PC.ESETUP 
MOV 025.ERRTYP 
MSGN MSG52 
MSGN*,BEGIN,MSG52 



: GO TO STANDBY STATE. 

} (GIVE CSBS TIME TO SET). 

j DELAY ( 100 US ). 

5 BREAK TO MONITOR. 

{TEMPORARY RETURN TO MONITOR 

{THEN CONTINUE AT NEXT INSTRUCTION. 

{ TIMEOUT? 

t NO, 

: YES, 



; LACS SET IN SMR ? 

j YES. 

{ NO. 

{ NO LACS. 

i SET UP FOR ERROR CALL, 

5 SET ERROR CODE TYPE, 

j X-REF ERR CODE L DESCRIPTIVE MSG 
{ASCII MESSAGE CALL WITH COMMON HEADER 



K L 't 



Nl 
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SEQ 13 



001026 

001026 104405 000000' 002252 



396 
397 
398 
399 



400 
401 



403 



404 



001034 
001036 

001040 

001040 
001046 
00104o 
001054 
001054 
001060 
001064 
001070 

001072 
001072 
001100 
001100 
001106 
001112 
001112 
001120 
00112.0 
001124 
001130 
001134 

001136 
001136 



000240 
0002 .0 



405 



112765 177777 000004 
012767 000100 001156 



104407 
10**07 
005367 
001371 



000000 
000000 
007.143 



042765 100000 000000 

042765 000400 000000 

105365 0C0004 

012767 000.100 001112 



104h07 

104407 
005367 
001371 



000000* 
000000' 
001076 



032765 100000 000000 



001144 001415 



001146 
001146 

001152 
001160 
001160 
001166 



004767 
012767 



001010 

000044 176/26 



104403 000000' 002306 



CO 1166 104405 000000' 002252 



406 
407 
408 
409 
410 
411 
412 
413 



001174 
001176 

001200 

001200 
001206 
001212 
001220 
001222 
001226 
001226 
001232 
001240 



000240 
000240 



016567 
000367 
12672 7 
00141/ 

000367 

004 767 
012767 



000004 001042 
001036 



001032 

001022 

0007 30 
000001 



000377 



176646 



T6 



64$ 



65$ 



T7 



HRDER REGTAB } CALL ERROR, PRINT ALL REGS. 

HRDER$, BEGIN, REGTAB j 

. +*+++**++*+*+ ** ++**+*****+*+**** + **+*****************+*,* +*++*+* 

NOP 
NOP 



MOVB 

DELAY 

MOV 

BREAK 

BREAKS, BEGIN 

BREAK* .BEGIN 

DEC DELCNT 

BNE 64$ 



^ALL,I0RCR5) 

100 

#100, DELCNT 



CLR. DATAACC 

BIC #0ATAACC,CIR(R5) 

CLR.STATCCHGE 

BIC #STATECHGE,CIR(R5) 

DECB I0HCR5) 

DELAY 100 

MOV #100, DELCNT 

BREAK 

BREA"*, BEGIN 

BREAK$,BEG T N 



j SEND A DATA BYTE. 
i ( GIVE DATAACC TIME TO SET), 
j DELAY C 100 US ). 
j BREAK TO MONITOR, 
j TEMPORARY RETURN TO MONITOR.... 
{THEN CONTINUE AT NEXT INSTRUCTION. 
TIMEOUT? 
NO. 
YES. 
CLEAR DATA ACCEPTED. 



i CLEAR STATE CHANGE, 
j SEND NEXT DATA BYTE. 



DEC DELCNT 

BNE 65$ 

TST.O DATAACC, CIR.T7 

BIT DATAACC, CIRC R5 3 



5 DELAY ( 100 US ). 

j BREAK TO MONITOR, 

{TEMPORARY RETURN TO MONITOR 

{THEN CONTINUE Al NEXT INSTRUCTION. 

s TIMEOUT? 

j NO. 

j YES. 



BEQ 



T7 



ERROR 
JSR 
MOV 
MSGN 



54,44 

PC.ESETUP 

#44,ERRTYP 

MSG54 

MSGN$, BEGIN, MSG54 
HRDEP REG1AB 



i DATAACC CLEAR IN CIR ? 

TES. 

NO. 

DATA ACCEPTED TO SECOND DATA BYTE. 

SET UP FOR ERROR CALL. 

SET ERROR CODE TYPc, 

X-REF ERR CODE 6 DESCRIPTIVE MSG. 
;ASCII MESSAGE CALL UITH COMMON HEADER 
: CALL ERROR, PRINT ALL REGS. 

;♦**♦**♦*+*** + ** + ** + * + +.*+* + * + + ** + ** + + *+*** + * + ******* + ******+ + *** 

HRDERi. BEGIN, REGTA6 ; 

• ** + ********.N ************ ******** , ->***************************** 

NOP 
NOP 



GET I OR CONTENT. 



MOV 


10R(R5)«G0T 


SWAB 


COT 


CMOB 


GOT, #377 


BEQ 


TO 


SWAB 


GDT 


ERROR 


55 1 


JSR 


PC,.: SETUP 


MOV 


#1,ERRTYP 


MSGN 


M5G5S 



; DATA OK? 
^ES. 

NO, REBUILD DATA PATTERN RF4D. 
DATA CHECK ON IEC TALKER Ok LISTENER 
SET {J? FOR ERRQ^ CALL, 
SET ERR )R CODE TYPE. 
X-REF EkR CODE £ DESCRIPTIVE MSG, 



EP 
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SEQ 14 



002312* 
001346 104405 000000' 002252' 



001240 104403 000000 
001246 



001254 


000240 






001256 


000240 






414 








415 001260 








416 001260 








001260 


032765 


100000 


OOOOOO 


001266 


001015 






417 001270 








001270 


004767 


00O666 




001274 


012767 


000025 


176604 


001302 








001302 


104403 


oooooo ■ 


002316' 


001310 








001310 


104405 


OOOOOO' 


002252* 


001316 


000240 






001320 


000240 






418 








419 001322 








420 001322 


016567 


000004 


000720 


421 001330 


000367 


000714 




422 001334 


126727 


000710 


000376 


423 001342 


001417 






424 001344 


000367 


000700 




425 001350 








001350 


004767 


000606 




001354 


012767 


000001 


176524 


001362 








001362 


104403 


OOOOOO' 


002322' 


001370 








001370 


104405 


OOOOOO* 


002252* 


001376 


000240 






001400 


000240 






426 








427 








428 








429 








4 30 








431 








432 








433 








4 34 








435 001402 








436 001402 


00506 7 


000626 




437 001406 


00506 7 


000634 




43fl 001412 


042765 


177400 


OOOOOO 


439 001420 









T8; 



T9j 



MSGNI, BEGIN. MSG55 
HROER REGTAB 



I ASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS. 



I 



HROER I, BEGIN, REGTAB i 

I **** + *,*4.* + ***,**+**** + + *****tt* tit************ ****************** 

NOP 
NOP 



TST.l DATAACCCIR.T9 
BIT *DATAACC,CIR(R5) 

BNE T9 



ERROR 56,25 
JSR PC.ESETUP 
MOV *25,ERRTYP 
MSGN MSG56 
MSGNI , BEGIN, MSG56 
HROER REGTAB 



OATAACC SET IN MR ? 
YES. 
NO. 

NO SECOND "OAT* ACCEPTED". 
SET UP FOR ERROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR COOE 6 DESCRIPTIVE MSG. 
I ASCII MESSAGE CALL WITH COMMON HEADER 
! CALL ERROR, PRINT ALL REGS. 



I 



HRDERI. BEGIN, REGTAB j 

i *********** **************************************************** 

NOP 
NOP 



GET SECONO OATA BYTE. 



MOV 


I0«(R5),G0T 


SWAB 


GOT 


CMPB 


GOT, 0376 


BEQ 


T10 


SWAB 


GOT 


ERROR 


57,1 


JSR 


PC.ESETUP 


MOV 


Ol.ERRTYP 


MSGN 


MSG57 


MSGNI, 


BEGIN, MSG57 


HROER 


REGTAB 



IS SECONO DATA BYTE OK? 
YES. 

NO. REBUILD PATTERN READ. 
DATA CHECK ON SECONO BYTE. 
SET UP FOR tRROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR COOE & OFSCRIPTIVE MSG. 
lASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS. 



I 



HROERI. BEGIN, REGTAB i 

^^^'.x *********************************************************** 

NOP 
NOP 

RANDOM TALKER AND LISTENER DATA TEST. 

THIS TEST CAN NOT BE CALLED SEPARATELY, DUE TO THE NECESSARY, 
SETUP TO BRING THE BUS INTO THIS STATf . 



TlOi 



CLR 
CLR 
BIC 
SCOPE 



RANMOD 
DATBUf" 
0HIBYTE,CIR(R5) 



l DISABLE RANDOM MODE. 
j CLEAR QATA BUFFER. 
t CLEAR INTERUPT BITS, 



3ffiftT°^fAft S ! E fc!f ERCISER M 



001420 
001422 

440 001424 

441 001432 

442 001440 

443 001440 

444 001446 
001446 

445 001454 

446 001462 
001462 
001466 
001466 

447 001472 
001472 
001476 
001504 
001504 
001512 



00024 
00024 
012767 
012767 



001524' 
001000 



042765 177400 



052765 

016765 

010567 
104400 



004767 
012767 



000100 
000566 

176406 

000000* 



000464 
000023 
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NOP 
NOP 




000606 




MOV 


*U2,IRTN 


000576 


Til: 


MOV 


01000, LOOP 


000000 




BIC 


0HIBYTE,CIRCR5^ 






SET. 


INTENB 


000000 




BIS 


0INTEN8.CIRCR5) 


000004 




MOV 


DATBUF,I0R(R5) 






WAIT 


.INT 






MOV 


R5.SVR5 






EXIT 








EXIT!, BEGIN 



104403 000000 ' 



176402 
002326 



001512 Iu4405 000000' 002252 



001520 
001522 
448 

449 001524 

450 001524 

451 001524 

452 00*532 

453 001536 

454 001542 

455 001550 

456 001552 
001552 
001556 
001564 
001564 
001572 



000240 
000240 



016567 
105067 
000367 
026767 
001415 

004767 
012767 



000004 
000512 
000506 
000502 



000404 

000001 



104403 000000 ' 



000516 
000476 

176322 
002332 



001572 104405 OOOOOO' 002252 



001600 
001602 
457 

458 001604 

459 001604 

460 001610 

461 001612 

462 001616 

463 001624 

464 001626 

465 001634 

466 001634 
001634 

46 7 001640 
466 001646 



000240 
000240 



005767 
001011 
00526 7 
026727 
001305 
012767 



104417 
016767 
042767 



000424 

OOC430 
000424 

177777 



OOOOOO' 

176210 

177400 



000400 
000400 



000400 
QQ0372 



T12: 
T13: 



T14j 



U5: 



ERROR 60,23 
JSR PC.ESETUP 
MOV 023.ERRTYP 
MSGN MSG60 
MSGN*. BEGIN. MSG60 
HRDER REG TAB 



SEQ 15 



I SET INTERUPT RETURN ADDRESS. 
I INIT LOOP COUNTER. 

I CLEAR INTERU°T BITS, 

, ENABLE INTERUPTS. 

j SEND A OATA BYTE, 

I SAVE CONTENTS OF R5, 

I WAIT FOR INTERUPT - EXIT TO MONITOR. 

lEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

j NO INTERRUPT TO DATA SENDING. 
I SET UP FOR ERROR CALL. 
i SET ERROR COOE TYPE. 
I X-REF ERR COOE 6 DESCRIPTIVE MSG. 
s ASCII MESSAGE CALL WITH COMMON HEADER 
{ CALL ERROR. PRINT ALL REGS. 



i 



**•* 



HRDERI, BEGIN, REGTAB » 

NOP 
NOP 



MOV I0R(R5),G0T 

CLRB GOT 

SWAB GOT 

CMP GOT.DATBUF 

BEQ T14 

ERROR 62.1 

JSR PC.ESETUP 

MOV *1,ERRTYP 

MSGN MSG62 

MSGNt, BEGIN, MSG62 

HRDER REGTAB 



READ BACK DA "A BYTE, 
PREPARE DATA. 

DATA OK? 
YES. 

DATA CHECK ON IEC BUS. 
SET UP FOR ERROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR COOE £ DESCRIPTIVE MSG. 
jASCII MESSAGE CALL WITH COMMON HEADER 
! CALL ERROR, PRINT ALL REGS. 



I 



HRDERI, BEGIN, REGTAB i 

NOP 
NOP 



1 RANDOM MODE? 

I YES. 

I NO. BUILD NEXT DATA PATTERN. 

j ALL DATA (0-377} TRIED? 

j NO. 

I >ES. SWITCH TO RANDOM MODE. 



TST 


RANMOD 


BNE 


T15 


INC 


DATBUf 


CMP 


DATBUF,d400 


BNE 


Til 


MOV 


0-l.RANMOD 


RANO 




RAND* 


♦BEGIN 


MOV 


RANNUM.DATBUf 


BIC 


tl7740Q,DATBMF 



I GET A RANDOM NUMBER (PATTERN), 

l MOVE PATTERN ONTO STACK, 
l BUILD A BYTE. 



Sf8flT 0EC i&h« s ! E fc!¥ 
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SEQ 16 



469 001654 
4 70 001660 
471 001662 
4 72 001666 

473 001674 
001674 

474 001702 

475 001710 
001710 
C01716 

001724 
001726 
001726 
001732 
001736 
001742 

476 001744 
001744 
001750 
001756 
001756 
001764 



005367 
001267 
005067 
012767 

052765 
016765 

012767 
032765 

001024 

104407 
104407 
005367 
001365 



004767 
012767 



000356 

000346 

000222 000352 

000004 000000 

000340 000004 

000100 000314 

100000 000000 64* j 



000000' 
000000 ' 
000270 



000212 
000025 



176130 



104403 000000' 002336' 



001764 104405 000000' 002252' 



477 
478 
4 79 



001772 
001774 

001776 
001776 
001776 



000240 
000240 



T16: 



032765 020000 000000 
002004 001015 



480 002OO6 
002006 
002012 
002020 
002020 
002026 



004 767 000150 

012767 000025 176066 

104403 000000' 002342 



002026 104405 000000' 002252 



481 
482 
483 
484 
485 
486 
487 
488 



002034 
002036 

002040 
002040 
002046 
002052 
002056 
002064 
002066 
002066 
002072 



000240 
000240 



016567 000004 000202 

105067 0O0176 

000367 000172 

026 727 000166 000222 

001415 

C04/6 7 0000 70 

012767 000001 176006 



T17j 



DEC LOOP 

BNE Til 

CLR RANMOD 

MOV 0222.DATBUF 

SET.LASTBYTE 



BIS 


OLAST8YTE.CIRCR5) 


MOV 


DATBUF.I0RCR5) 


WAIT.l 


100. DATAACC, CIR.T 


MOV 


*100,DELCNT 


BIT 


0DATAACC.CIRCR5) 


BNE 


T16 


BREAK 




BREAK! 


.BEGIN , 


BREAK* 


.BEGIN j 


DEC 


DElCNT 


BNE 


64$ 



16 



I BUMP LOOP COUNT , DONE 7 
I NO. 

I SWITCH BACK TO NORMAL MODE. 
I PREPARE LAST DATA PATTERN. 
i INDICATE "LAST BYTE". 

j LOAD IT, 

I WAIT ( 100 US ) FOR DATAACC - 1, 

1? 



ERROR 63,25 
JSR PC.ESETUP 
MOV 025.ERRTYP 
MSGN MSG63 
MSGN*, BEGIN, MSG63 
HRDER REGTAB 



i BIT DATAACC 

j NO/BREAK TO MONITOR. 

TEMPORARY RETURN TO MONITOR 

THEN CONTINUE AT NEXT INSTRUCTION. 

t TIMEOUT? 

I NO. 

, NO DATA ACC WHEN SENDING I AST BYTE 
I SET UP FOR ERROR CALL, 
j SET ERROR COOE TYPE. 
, X-REF ERR CODE 6 DESCRIPTIVE MSG, 
ASCII MESSAGE CALL WITH COMMON HEADER 
I CALL ERROR, PRINT ALL REGS. 



I 



HRDER*, BEGIN, REGTAB j 

NOP 
NOP 



TST.l END.CIR.T17 

BIT *EN0,CIR(R5) 

BNE T17 

ERROR 64,25 

JSR PC.ESETUP 

MOV 025.ERRTYP 

MSGN MSG64 
MSGNI, BEGIN, MSG64 

HRDER REGTAB 



ENO SET IN CIR ? 
YES, 
NO. 

NO "ENO" TO "LAST BYTE". 
SET UP FOR ERROR CALL. 
SET ERROR COOE TYPE. 
X-REF ERR COOE 6 DESCRIPTIVE MSG. 
jASCII MESSAGE CALL WITH COMMON HEADER 
j CALL ERROR. PRINT ALL REGS. 



I 



HRDER*. BEGIN, REGTAB i 

,**♦++**+*+***+*+******+*+*+++++*++*+*++++********************** 

NOP 
NOP 



READ BACK DATA B>TE. 

PREPARE FOR CHECK. 

DATA OK? 

YES. 

DATA CHECK ON "LAST BlTE 

SET UP FOR ERROR CALL. 

SET ERROR CODE TYPE. 



MOV 


IOR(R5).G0T 


CLRB 


GOT 


SWAB 


GOT 


CMP 


GOT, 0222 


BEQ 


TEND 


ERROR 


65,1 


JSR 


PC.ESETUP 


MOV 


01.ERRTYP 



E2 
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002100 MSGN MSG65 » X -REF ERR CODE £ DESCRIPTIVE MSG. 

002100 104403 000000' 002346' MSGN* .BEGIN, MSG65 i ASCII MESSAGE CALL WITH COMMON HEPDER 

002106 HRDER REGTAB j CALL ERROR, PRINT ALL REGS, 

002106 104405 000000' 002252* HRDER* .BEGIN, REGTAB i 

00P114 000240 NOP 

0U2116 000240 NOP 

489 

490 002120 TEND; 

491 002120 SET.MC \ MASTER CLEAR, 
002120 052765 000040 000000 BIS 0MC,CIR(R5) 

492 002126 ENDIT 

002126 104413 000000' ENDIT*, BEGIN jSIGNAL END OF ITERATION. 

jMONITOR SHALL TEST END OF PASS 

493 002132 000167 176066 JMP RESTRT i RESTART NEXT ITERATION. 



F? 
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SEQ 18 



496 
497 
498 002136 



4Q9 

500 002144 

501 002150 

502 002156 



016705 
142765 
000177 



175724 
177400 
000056 



,SBTTL INTERUPT SERVICE ROUTINE 
INTSVCj PIRQ GOIRTN 



002136 000004 000000' 002144' 



PIRQ$. BEGIN, GOIRTN 
J - 



000000 



GOIRTN: MOV 
BICD 
JMP 



SVR5.R5 

OHIBYTt^CIRtRS) 

QT.RTN 



i QUEUE UP TO CONTINUE AT GOIRTN AND RTI 



} RESTORE R5. 

j CLEAR INTERUPT BITS. 

I RETURN, 



A OEC/XU SY 

ROUTINES 


STEM EXE 


RCISER r 


505 






506 






507 






508 






509 






510 






511 002162 


010567 


175712 


512 002166 


011567 


175710 


513 002172 


010500 




514 002174 


010067 


000052 


515 002200 


062700 


000002 


516 002204 


010067 


000044 


517 002210 


062700 


00000,? 


518 002214 


010067 


000030 


519 002220 


062700 


00000.? 


520 002224 


010067 


000030 


521 002230 


000207 





G2 
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,SBTTL SUBROUTINES 



SEQ 19 



l ♦♦ 




; SUBROUTINE 

i - • 


- SET UP FOR 


ESETUP; MOV 


R5.CSRA 


MOV 


(R5),ACSR 


MOV 


R5.R0 


MOV 


RO,CIRPTR 


ADD 


02, RO 


MOV 


RO.SMRPTR 


ADD 


02, RO 


MOV 


RO.IORPTR 


ADD 


02, RO 


MOV 


RO.VSRPTR 


RTS 


PC 



l SET UP CSR (CIR) ADDRESS, 
I SET UP CSR (CIR) CONTENTS. 
1 SET UP REG POINTERS IN TABLE, 



»^ X M)D S i»t& 



H2 
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SEQ 20 



524 
525 

526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 



.SBTTL CONSTANTS AND VARIABLES. 



002232 
002234 
002236 
002240 
002242 
002244 
002246 
002250 

002252 
002252 
002254 
002256 

002260 
002262 
002264 



000000 
000000 
000000 
000000 
000075 
000135 
000000 
000000 



000000 
000002 
000004 
000006 
002246 
177777 



DELCNT: 
RANMODt 
LOOP; 
IRTN: 
LTSTNR 
TALKER 
DATBUF 
GOT: 





75 

135 







RFGTAB: 

CIRPTR: CIR 

SMRPTR: SMR 

IORPTR: IOR 

VSRPTRj VSR 

DBPTR; DATBUF 
-1 



-l'RANDQM) 



DELAY COUNTER. 

RANOOM MODE (0-NOT RANDOM, 

LOOP COUNTER. 

INTERUPT RETURN ADDRESS. 

ADDRESS OF LISTENER. 

ADDRESS OF TALKER. 

DATA WORD OR BYTE BUFFER. 

DATA ACTUALLY GOTTEN. 



REGISTER POINTERS SAVED HERE FOR ERR DUMPING, 

CIR POINTER (AFTER R5 ADDED IN). 

SMR POINTER (AFTER R5 ADDED IN). 

IOR POINTER (AFTER R5 ADDED IN). 

VSR POINTER (AFTER R5 ADDED IN), 

DATBUF (DATA BUFFER) POINTER. 

TABLE TERMINATOR, 



m$i%ttikh 



iYSTEM EXERCISER M MACRO M1200 30-MAR-84 11:01 



12 

PAGE 21 



5EQ 21 



54 7 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

j>58 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

57? 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

58/ 

588 

589 

590 

591 

592 



002266 
002270 
002272 
002274 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002316 
002320 
002322 
C02324 
002326 
002330 
002332 
002334 
002336 
002340 
002342 
002344 
002346 
002350 

002352 
002426 
00252 7 
002630 
002704 
002775 
00304 1 
003136 
00V40 
003271 
00336/ 
003464 
003552 
003646 
003710 



002352' 

177777 

0024 26' 

177777 

002527' 

177777 

002630' 

177777 

002704' 

177777 

003041' 

177777 

003136' 

177777 

003271' 

177777 

003367' 

177777 

003464' 

177777 

003552' 

177777 

003646' 

177777 

003710' 

177777 

105 
105 
105 
105 
105 
045 
105 
105 
045 
105 
105 
105 
105 
105 
105 



122 
122 
122 
122 
122 
124 
122 
122 
104 
122 
122 
122 
122 
122 
122 



122 
122 
122 
122 
122 
110 
122 
122 

:n 

122 
122 
122 
122 

122 
122 



MSG46j 
MSG50: 
MSG52: 
MSG53: 
MSG54; 
MSG55: 
MSG56} 
MSG57; 
MSG60: 
MSG62: 
MSG63: 
MSG64; 
MSG65; 



EMSG46 
EMSG50 
EM5G52 
EMSG53 
EMSG54 

EMSG55 
EMSG56 

EMSG57 
EMSG60 
EMSG62 
EMSG63 
EMSG64 

EMSG65 



.SBTTL ASCII MESSAGES 

EMSG46 
•1 

EMSG50 
-1 

EMSG52 
-1 

EMSG5? 
-1 

EMSG54 
-1 

EMSG55 
-1 

EMSG56 
-1 

EMSG5 7 
-1 

EMSG60 
-1 

EMSG62 
-1 

EMSG63 
-1 

EMSG64 
-1 

EMSG65 
-1 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCI."! 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
»EVEN 



ERROR 46 - "TCS" DOES NOT PRODUCE "ILLMSGE"' 

ERROR 50 - WHEN SENOING THE LISTENER ADDRESS. 

ERROR 52 •• AFTER LISTENER ADDRESSING AND "GTS 

ERROR 53 - NO INTERUPT TO TALKER ADDRESSING' 

ERROR 54 - WHEN SENDING A SECOND DATA BYTE BEFORE READING' 

KTHE FIRST AGAIN, "DATAACC" CAME UP' 

ERROR 55 - FIRST DATA BYTE SENT AND RECEIVED IS NOT THE SAME ' 

ERROR 56 AFTER READING THE FIRST SENT DATA BYTE, THE SECOND 

*DID NOT BRING "DATAACC" 

ERROR 57 - SECOND DATA BYTE SENT AND RECEIVED IS NOT THE SAME. 

ERROR 60 SENDING OF DATA BYTE DOES NOT PRODUCE AN INTERUPT' 

ERROR 62 - DATA BYTES SENT AND RECEIVED ARE NOT £QUAl • 

ERROR 63 - NO "DATAACC" WHEN SENDING A BYTE WITH "LASTBYTfc 4 " 

ERROR 64 - NO "F,ND" TQ "LASTBYTE"' 

ERROR 65 - DATA CHECK ON "LASTBYTfc*" 



NO INTERUPT OCCURS 1 
, NO "LACS" IS SET' 



SENT 



J^ 
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END Of- PROGRAM 

598 .^BTTL £ND OF PROGRAM 

bOO 003754 055036 DOMMY : 23070, 

601 003756 001750 HHMM: 1000. 

602 

603 003760 000001 PENDi .END 



eba OEC/xii 

SYMBOL TABLE 
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ACSR 
ADDR 
ADDR22- 
ALL 

APTPRE* 
ASB 
A'TAT 
AUTO - 
AWAS 
BEGIN 
BITO - 
BIT! « 
BITtO - 
BTT11 - 
BIT12 - 
B1T13 - 
B1I14 * 
BIM.S » 
BI1.' = 
BIT 5 
BIT4 
BIT5 - 
BIT6 « 
BIT7 - 
BIT8 * 
BIT9 - 
BREAK t* 
BR1 
DR2 

BTOD* * 
CACS « 
CAPRES- 
CDATA** 
CIR 

CIRPTR 
CKHNGi- 
CLKPRE* 
CLK5P*« 
CONFIG 
CSBS - 
CSRA 
DATAAC" 
DATBUT 
DATCK** 

. ABS, 



OO0102R 

000006R 

OOIOOO 

177777 

000200 

000106R 

000104R 

000010 

0001 10R 

OOOOOOR 

000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

104407 

0000 12R 

0000 13R 

104421 

000400 

000004 

104412 

000000 

002252R 

000001 

000001 

104422 

000056R 

001000 

000100H 

100000 

002246R 

104411 



000000 
003760 
ERRORS DETECTED 



000 
001 



DATF.RI- 

DBPTR 

DCMMY 

DELCNT 

DVID1 

ECCMEM- 

EMSG46 

EhSG50 

EMSG52 

EMSG53 

EMSG54 

EMSG55 

EM5G56 

EMSG57 

EMSG60 

EMSG62 

EMSG63 

EMSG64 

EMSG65 

ENO 

ENDIT*' 

ENO$ ■ 

ERRTYP 

ESETUP 

EXIT* ' 

GETPA$' 

GOIRTN 

GOT 

GTS 

GWBUF*' 



HIBYTE' 

HRDCNT 

HRDER$- 

HRDPAS 

ICONT 

ICOLNT 

IDNUM 

ILLMSG' 

INOPAR' 

J.NIT 

INTEN8 

INTR 

INTSVC 



104404 

0C2262R 

003754R 

002232R 

000014R 

000100 

002352R 

002426R 

002527R 

O0263OR 

002704R 

00304 1R 

003136R 

003271R 

003367R 

003464R 

003552R 

003646R 

0037 10R 

020000 

104413 

104410 

OOOlOuR 

002162R 

104400 

104415 

002144R 

C02250R 

000004 

104414 

003756R 

177400 

000044R 

104405 

000050R 

000036R 

000040R 

000122R 

010000 

000040 

000030R 

000100 

000120R 

002136R 





\<2. 






MAR -84 
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IOR 


000004 


POPSP - 


005726 


IORPTR 


002256R 


P0PSP2- 


022626 


IRTN 


002240R 


PRHMS*" 


000002 


KTPRES- 


000400 


PRTY - 


oooooo 


KTXTND- 


040000 


PRTYO • 


■ oooooo 


LACS • 


010000 


PRTY1 ■ 


■ 000040 


LASTBY- 


000004 


PRTY2 ■ 


■ OOOIOO 


LISTNR 


002242R 


PRTY3 - 


■ 000140 


LOBYTE- 


000377 


PRTY4 • 


■ OOOPOO 


LOOP 


002236R 


PRTY5 ■ 


• 0OO.'4O 


MAP22*- 


104" W> 


PRTY6 ■ 


■ 000300 


MC 


000040 


PRTY7 • 


• 000340 


MOONAM 


OOOOOOR 


PS 


177776 


MOOSP 


000224R 


PSW 


i 177776 


MSGN* • 


104403 


PUSH « 


• 005746 


MSGS* ■ 


104402 


PUSH2 


• 024646 


MSGI - 


104401 


PWRFLG 


• 000002 


MSG46 


002266R 


GM0N22 


• OOOOIO 


MSG50 


002272R 


RAND I 


• 104417 


MSG52 


002276R 


RANMOD 


0O2234R 


M5G53 


0O2302f! 


RANNUM 


0OO054R 


MSG54 


002306R 


REGTAB 


002252R 


MSG55 


002312R 


RESTRT 


000224R 


MSG56 


002316R 


RES1 


000056R 


MSG57 


002322R 


RES? 


0OO06OR 


MSG60 


002326R 


RH70 


■ 001000 


MSG62 


002332R 


RSTRT 


000112R 


MSG63 


002336R 


R6 


-K0OO006 


MSG64 


002342R 


R7 


-K0OO007 


MSG65 


002346R 


SACS 


- OOOOOl 


NCPUOP- 


000020 


SBADR 


000102R 


NOAPTY- 


000002 


SIAS 


• 020000 


NULL - 


000000 


SIC 


- 000100 


OPEN • 


000000 


SMR 


• 000002 


OTOAI • 


104420 


SMRPTR 


0O2254R 


PARPRE- 


002000 


SOFCNT 


0OO042R 


PASCNT 


000034R 


SOFER* 


- 104406 


PDPFH- 


000002 


SOFPAS 


000046R 


PDPLS1- 


020000 


SPOINT 


OOO032R 


PDP44 - 


too 000 


SPSIZ 


* 000040 


POP60 - 


ooooo 


SRI 


0OO016R 


PDP70 - 


010000 


SR2 


OOO02OR 


PENO 


003760H 


SR3 


0O0022R 


PIRQ* * 


000004 







SEQ 23 



SR4 

START 

STAT 

STATEC- 

SVRO 

SVR1 

SVR2 

SVR3 

SVR4 

SVR5 

SVR6 

SYSCNT 

TALKER 

TCA 

res 

TEND 

TRPDFD" 

TSTIEB 

Tl 

T10 

Til 

T12 

T13 

T14 

T15 

T16 

T17 

T2 

T3 

T4 

T5 

T6 

T7 

T6 

T9 

USTACK 

VECTOR 

VSR 

VSRPTR 

WASADR 

WDFR 

WDTO 

XFUACi 



000024R 

0OO224R 

000026R 

000400 

000062R 

000064R 

000066R 

000070R 

000072R 

000074R 

OOO076R 

000052R 

002244R 

000002 

OOOOOl 

002120R 

000023 

0OO250R 

0OO250R 

OO1402R 

0O1440R 

001524R 

001524R 

001604R 

001634R 

001776R 

002040R 

000510R 

000646R 

000646R 

000744R 

00 104 OR 

001200R 

0O126OR 

0O1322R 

OOOOOl 

0OO01OR 

000006 

0O2260R 

000104R 

000116R 

0O0U4R 

0OO005R 







VIRTUAL MEMORY USED: 14148 WORDS 
DYNAMIC MEMORY: 2O060 WORDS ( 77 
fc LAPSED TIME: 00:00,35 
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PAGES) 



DOCUMENT 




...Bl 


DOCUMENT 




..,C1 


DOCUMENT 




...01 


DOCUMENT 




.♦.El 


DOXCOM HEAOER 




. ..Fl 


DOXCOM HEADER 




...Gl 


MACRO DEFINITIONS 


4 1 


...HI 


MACRO DEFINITIONS 


» 


...11 


EQUATES 




...Jl 


START - RESTART - 


TE 


...Kl 


START - RESTART - 


TE 


...LI 


START - RESTART - 


TE 


...Ml 


START - RESTART - 


TE 


...Nl 


START - RESTART - 


TE 


B2 


START - RESTART - 


TE 


C2 


START - RESTART - 


TE 


...,02 


START - RESTART - 


TE 


E2 


INTERUPT SERVICE 


ROU 


Fir> 


SUBROUTINES 




G2 


CONSTANTS AND VARIAB 


...H2 


ASCII MESSAGES 




12 


END OF PROGRAM 




J2 


SYMBOL TABLE 
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